Public Class ReceiptItem

    Public Sub New()
    End Sub

    Public Sub New(ByVal serviceName As String, ByVal amount As Decimal)
        Me.Amount = amount
        Me.ServiceName = serviceName
    End Sub

    Private mServiceName As String
    Public Property ServiceName() As String
        Get
            Return Me.mServiceName
        End Get
        Set(ByVal Value As String)
            Me.mServiceName = Value
        End Set
    End Property

    Private mAmount As Decimal
    Public Property Amount() As Decimal
        Get
            Return Me.mAmount
        End Get
        Set(ByVal Value As Decimal)
            Me.mAmount = Value
        End Set
    End Property

End Class
